home *** CD-ROM | disk | FTP | other *** search
/ CD ROM Paradise Collection 4 / CD ROM Paradise Collection 4 1995 Nov.iso / program / swags_z.zip / SCREEN.SWG / 0060_Change the Screen Border.pas < prev    next >
Pascal/Delphi Source File  |  1994-01-27  |  2KB  |  35 lines
  1. (***********************************************************************)
  2. PROGRAM Border_Color;           {  Program to change the Screen Border  }
  3. USES                            {  March 22/93, Greg Estabrooks         }
  4.     CRT;                                 {  For Writeln                 }
  5. VAR
  6.         Err,
  7.         Color :INTEGER;
  8.  
  9. PROCEDURE BorderColor( Color :BYTE ); ASSEMBLER;
  10.                        { Routine to change Screen border Color         }
  11. ASM
  12.   Mov AH,$0B                    { SubFunction to change screen border  }
  13.   Mov BL,Color                  { Load Color to set border to          }
  14.   Mov BH,0                      { Set Video Page to 0                  }
  15.   Int $10                       { Call Dos                             }
  16. END;{BorderColor}
  17.  
  18. BEGIN
  19.   IF ParamCount <> 1 THEN       { First Check for parameters           }
  20.    BEGIN                        { If there were none then Syntax Error }
  21.      WriteLn(' Usage : Border <Color> ');
  22.      WriteLn('   Color = Value 0-15');
  23.    END
  24.   ELSE
  25.    BEGIN
  26.      Val(ParamStr(1),Color,Err);{ Convert from a STRING to a INTEGER    }
  27.      IF (Color > 15) OR (Err <> 0) THEN
  28.                                 { If it is not in the range of 0..15    }
  29.                                 { it is invalid                         }
  30.        Writeln(' Invalid Color Value : ',ParamStr(1))
  31.      ELSE                       { If its ok then lets change the border }
  32.        BorderColor(Color);
  33.    END;
  34. END.
  35. (**********************************************************************)